home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33b.dsk / SINGLE DOT SHAPE TABLE DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  35 lines
  1. 0  REM  BOX DEMO
  2. 5  REM  POKE 'DOT' SHAPE TABLE
  3. 10  POKE 768,1: POKE 769,0: POKE 770,4
  4. 15  POKE 771,0: POKE 772,4: POKE 773,0
  5. 20  POKE 232,0: POKE 233,3: REM  $E8,E9=$300
  6. 25  HGR : HCOLOR= 3
  7. 30  GOSUB 200
  8. 35 X = 140:Y = 80: REM  STARTING POSITION
  9. 40 H = 50:W = 75: REM  HEIGHT, WIDTH
  10. 100  REM  DRAW FRAME
  11. 105  ROT= 16: SCALE= W
  12. 110  XDRAW 1 AT X,Y
  13. 115  XDRAW 1 AT X,Y +H
  14. 120  ROT= 32: SCALE= H
  15. 125  XDRAW 1 AT X,Y
  16. 130  XDRAW 1 AT X +W,Y
  17. 135  GET A$
  18. 140  ROT= 16: SCALE= W
  19. 145  XDRAW 1 AT X,Y
  20. 150  XDRAW 1 AT X,Y +H
  21. 155  ROT= 32: SCALE= H
  22. 160  XDRAW 1 AT X,Y
  23. 165  XDRAW 1 AT X +W,Y
  24. 170  IF A$ =  CHR$(8)  THEN X = X -1: IF X <0  THEN X = 0
  25. 175  IF A$ =  CHR$(21)  THEN X = X +1: IF X +W >279  THEN X -279 -W
  26. 180  IF A$ =  CHR$(10)  THEN Y = Y +1: IF Y +H >159  THEN Y = 159 -H
  27. 185  IF A$ =  CHR$(11)  THEN Y = Y -1: IF Y <0  THEN Y = 0
  28. 190  IF A$ = "Q"  THEN  TEXT : END 
  29. 195  GOTO 105
  30. 200  REM  CREATE FIELD
  31. 205  FOR I = 1 TO 50
  32. 210 X =  RND(1) *279:Y =  RND(1) *159
  33. 215  HPLOT X,Y
  34. 220  NEXT I
  35. 225  RETURN